<script>UDTotW -- Updates Grand Totals on Master EntriesAddSubR -- Sets up adding an InvestmentNewInv -- Adds new InvestmentDelRename -- Deletes or Renames InvestmentNameCheck -- Checks for Duplicate Investment name (a no-no)on UDTotWGlobal VOFlag,OTW1,CVAmountSet Cursor to 4IF VOFlag is "Yes" then Put getNum(cd fld "TotWorth") into OTW1Put getNum(cd fld "TotWorth") into OTW2Put "0" into WAccumPut "0" into VAccumPut "0" into DeltaPut "0" into GLSet the numberFormat to "0"REPEAT with C = 1 to 20Put "Worth"&C into wWPut "Vested"&C into wVIF cd fld wW <> Empty then Add getNum(cd fld wW) to WAccumIF cd fld wV <> Empty then Add getNum(cd fld wV) to VAccumend REPEATSet the numberFormat to "0.00"IF VOFlag is "Yes" then -- Vestment Only changed FlagIF CVAmount <> Empty thenPut "Vestment change $"&CVAmount into cd fld "TotChange"else Put "Vestment change $0.00" into cd fld "TotChange"Put "$ "&VAccum into cd fld "TotVested"elseIF OTW1 <> Empty thenPut WAccum-OTW1 into DeltaPut Empty into OTW1else Put WAccum-OTW2 into DeltaPut "Worth changed $"&Delta into cd fld "TotChange"Put "$ "&WAccum into cd fld "TotWorth"end ifPut WAccum-VAccum into GLIF the number of chars of GL >= 8 thenSet textFont of cd fld "TotGL" to ITPSet textSize of cd fld "TotGL" to 8Set textHeight of cd fld "TotGL" to 14elseSet textFont of cd fld "TotGL" to GenevaSet textSize of cd fld "TotGL" to 9Set textHeight of cd fld "TotGL" to 14end ifPut "$ "&GL into cd fld "TotGL"Set numberFormat to "0.0"Put (GL/VAccum)*100 into PCIF PC contains "NAN" thenPut "N/A%" into cd fld TotPCelsePut "TotPC" into wPCPCFSize PC,wPCPut PC&"%" into cd fld TotPCend ifend UDTotWon AddSubRGlobal InvNo,wI,wBA,wBB,wAI,wMS,wNAV,wS,wW,wV,wGL,wPCSet numberFormat to "0"Put (InvNo*1) into InvNoPut "InvName"&InvNo into wIPut "Blanker"&InvNo&"A" into wBAPut "Blanker"&InvNo&"B" into wBBPut "Add Inv"&InvNo into wAIPut "Status"&InvNo into wMSPut "NAV"&InvNo into wNAVPut "Shares"&InvNo into wSPut "Worth"&InvNo into wWPut "Vested"&InvNo into wVPut "GL"&InvNo into wGLPut "PC"&InvNo into wPCNewInvend AddSubRon NewInvGlobal tempName,wI,wBA,wBB,wAI,wMS,wNAV,wS,wW,wV,wGL,wPC,CCFlag,¬CLFTFlagAsk "Provide the name (short) of the investment."IF it is Empty then EXIT NewInv else Put it into tempNameSet Cursor to 4NameCheck -- Subroutine below for no duplicatesPut Empty into cd fld wIPut Empty into cd fld wMSPut tempName into NewINamePut NewIName into cd fld wISet lockText of cd fld wNAV to FalsePut "Click" into cd fld wMSlock screenPut "Yes" into CCFlagGo cd "Blank Inv"doMenu "Copy Card"doMenu "Last"doMenu "Paste Card"Set the Name of this cd to NewINameSet cantDelete of cd NewIName to TrueSet the Name of cd fld ID 1 to NewIName&" Inv Data"Put NewIName into line 1 of cd fld "Label 1"Put NewIName&" Investment Activities (Notes)" into cd fld "Label 2"Put "1 Weeks of 1" into line 7 of bg fld "DVSGS"Put "Market Values" into line 9 of bg fld "DVSGS"Put "1" into line 10 of bg fld "DVSGS"Put "1" into bg fld "AW"Select first word of bg fld "AW"doMenu "Copy Text" -- clears "Paste Card"Put empty into CLFTFlag -- will force new Comp List when openedGo to cd "Entry"Put empty into CCFlagHide cd fld wBAHide cd fld wBBHide cd fld wAIShow cd fld wIunlock screen with dissolve slowlyend NewInvon DelRenameGlobal tempName,wI,wBA,wBB,wAI,wMS,wNAV,wS,wW,wV,wGL,wPC,CCFlag,¬VOFlag,CVAmount,CLFTFlag,CCFlag2Put cd fld wI into tempholdAnswer "Delete or Rename Investment "&temphold&"?" with ¬"Delete" or "Rename" or "Cancel"IF it is "Cancel" thenEXIT to HyperCardelse IF it is "Rename" thenAsk " Provide a New Name for this Investment:" with tempholdIF it is Empty then EXIT to HyperCard else Put it into tempNameSet cursor to 4NameCheck -- Subroutine below for no duplicatesPut tempName into NewNameSet the name of cd fld ID 1 of cd temphold to NewName&" Inv Data"Put NewName into line 1 of cd fld "Label 1" of cd tempholdPut NewName&" Investment Activities (Notes)" into ¬cd fld "Label 2" of cd tempholdSet the name of cd temphold to NewNamePut NewName into cd fld wIlock screenPut "Yes" into CCFlagPut empty into CLFTFlag -- will force new Comp List when openedGo cd "Entry"Put empty into CCFlagunlock screenelse IF it is "Delete" thenAnswer quote&"Delete It""e&" will remove all "&temphold&" Data!" with ¬"Delete It" or "Cancel"IF it is "Cancel" then EXIT to HyperCardelse --Delete ItSet Cursor to 4lock ScreenPut "Yes" into CCFlagGo cd tempholdSet cantDelete of cd temphold to FalsePut "Yes" into CCFlag2doMenu "Delete Card"Go cd "Entry"Put Empty into CCFlag2Put Empty into cd fld wIPut Empty into cd fld wNAVSet lockText of cd fld wNAV to TruePut Empty into cd fld wMSPut Empty into cd fld wSPut Empty into cd fld wWIF cd fld wV <> Empty thenPut getNum(cd fld wV) into CVAmountPut "-"&CVAmount into CVAmountend ifPut Empty into cd fld wVPut Empty into cd fld wGLPut Empty into cd fld wPCShow cd fld wBAShow cd fld wBBHide cd fld wIShow cd fld wAIPut Empty into CLFTFlag -- will force new Comp List when openedGo cd "Entry"Put Empty into CCFlagunlock screen with dissolve slowlyPut "Yes" into VOFlagUDTotWPut Empty into CVAmountPut Empty into VOFlagUDTotWend ifend ifend DelRenameon NameCheckGlobal tempNameREPEAT with C = 1 to 20Put "InvName"&C into wOneIF cd fld wOne <> Empty thenPut cd fld wOne into oNameIF oName = tempName thenAnswer "Sorry, that Name is taken. Try another name!"Put Empty into tempNameEXIT to HyperCardend ifend ifend REPEATend NameCheck</script>
